COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DEFUN FASL-CLOSEOUT (TARGETFILE SOURCEFILES UNFASLNAM)
C00005 ENDMK
C⊗;
(DEFUN FASL-CLOSEOUT (TARGETFILE SOURCEFILES UNFASLNAM)

	      (AND UNFASLNAM 
		   (COND ((STATUS FEATURES SAIL)
			  (SETQ UNFASLNAM (CONS (CAR UNFASLNAM)
						(CONS 'UNFASL (CDDR UNFASLNAM)))))
			 (T
			  (SETQ UNFASLNAM (CONS (CAR UNFASLNAM) '(UNFASL))))) 
	      (BUFFERBIN 17 0 ())					;END OF FILE FLAG
	      (AND (NOT SOURCEFILES) 
		   (SETQ TARGETFILE (CONS '/.FASL/. (CONS 'OUTPUT (CDDR TARGETFILE)))))
              (COND ((AND (STATUS FEATURES SAIL)
  			  (PROBEF TARGETFILE))
       	             (DELETEF TARGETFILE)))
    	      (RENAMEF IMOSAR TARGETFILE)
	      (SETQ IMOSAR ())						;CLOSE BINARY OUTPUT FILE
	      (COND (SOURCEFILES 
		     (AND UNFASLCOMMENTS 
			  (NOTE-IN-UNFASL '|TOTAL = | FILOC '| WORDS|))	;Close UNFASL file
		     (COND ((NULL UNFASLNAM)) 				;If kill-flag permits, and
			   ('T (COND ((AND (STATUS FEATURES SAIL)
			                   (PROBEF UNFASLNAM))
			              (DELETEF UNFASLNAM)))

			       (RENAMEF (CAR UFFIL) UNFASLNAM)
			       (AND (NULL UNFASLSIGNIF) (DELETEF (CAR UFFIL)))
			       (SETQ UFFIL () ))))

		    (T  (DELETEF TARGETFILE)				;KILL FASL FILE, 
			(COND ((AND (STATUS FEATURES SAIL)
				    (PROBEF UNFASLNAM))
			       (DELETEF UNFASLNAM)))
			(COND ((AND UFFIL UNFASLNAM)			; IF WRONG OR INSIGNIF
			       (RENAMEF (CAR UFFIL) UNFASLNAM) 
			       (SETQ UFFIL () )))
			(MOBYSYMPOP MAINSYMPDL)
			(REMPROPL 'SYM CURRENTFNSYMS)))
	      (REMPROPL 'ENTRY ENTRYNAMES)				;FLUSH NO-LONGER-NEEDED PROPERTIES
	      (REMPROPL 'ARGSINFO ENTRYNAMES)
	      (REMPROPL 'ATOMINDEX ALLATOMS)
	      (FILLARRAY 'BSAR '(()) )
	      (FILLARRAY 'NUMBERTABLE '(()) )
	      (SETQ ALLATOMS (SETQ ENTRYNAMES (SETQ SYMPDL  
		    (SETQ MAINSYMPDL (SETQ CURRENTFNSYMS () ))))))